home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / logic cad (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  362 lines
  1. 5 print"[147]":poke53281,0:poke53280,.:gosub61000:poke55,.:poke56,127:clr
  2. 10 sys57812"cad.bin",8,0:poke780,0:poke781,64:poke782,183:sys65493
  3. 12 sd=54272:forx=0to24:pokesd+x,.:next
  4. 15 poke53265,peek(53265)and239
  5. 20 poke56576,(peek(56576)and252)or1
  6. 30 poke53272,(peek(53272)and15)or14:        poke648,128
  7. 35 :
  8. 36 sys49167 : rem init color memory
  9. 40 print"[147][144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][196][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][193]  [177] [178] [179] [180] "
  10. 45 poke32846,64:poke32847,64:poke55374,0:poke55375,0
  11. 50 printtab(28)"[144][193][157][193] [187] [188] [189] [190] [191]":printtab(28)"[144][193][157][193] [175] [176] [219] [223] [163]
  12. 60 [153][163]28)"stopatncmdatn then step - / fn"
  13. 70 [153][163]28)"stopatncmdatn abs fre (NULL) (NULL) (NULL)"
  14. 80 [153][163]28)"stopatncmdatn  (NULL) (NULL) (NULL) (NULL) "
  15. 90 [153][163]28)"atncmdatn"
  16. 92 [153][163]28) "atnpeektantantantanstr$tantantantanlencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdatnatnquitstopatnhelpstopleft$cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  17. 93 [153][163]28) "atnascright$right$right$right$valright$right$right$right$chr$";
  18. 94 [153][163]28) "cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  19. 100 [153][163]28) "atn peektantantanstr$tantantanlencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdatn atnclrstopatnrststopleft$"
  20. 120 [153][163]28)"atn ascright$right$right$valright$right$right$chr$"
  21. 160 [153][163]28)"atnpeektantantantanstr$tantantantanlencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdatnatnloadstopatnsavestopleft$"
  22. 170 [153][163]28)"onatnascright$right$right$right$valright$right$right$right$chr$":[151]33756,65:[151]56284,0
  23. 175 :
  24. 190 c$[178]"stop                                     "
  25. 195 :
  26. 200 [151]53280,14:[151]53281,14
  27. 210 v[178]53248:[151]v[170]21,1:[151]v[170]39,1:[151]v,100:[151]v[170]1,100:[151]v[170]16,0
  28. 215 [151]53265,[194](53265)[176]16
  29. 220 [151]33784,223
  30. 225 :
  31. 230 [134]ng(100),b(100),d$(100),gl(100)
  32. 235 :
  33. 240 [151]198,0
  34. 260 [153]"  do you want to use a mouse? (y/n)"
  35. 290 [161]a$:[139]a$[178]"y"[167][151]49209,255:[137]310
  36. 300 [139]a$[179][177]"n"[167]290
  37. 302 [143]
  38. 303 [143] ------------------------------
  39. 304 [143]
  40. 310 c$[178]"           l o g i c   c a dstop           "
  41. 312 ee$[178]"               e r r o r !            "
  42. 315 [153]c$
  43. 320 yy[178][198](a$):[158]49188
  44. 330 [129]i[178]32805[164]32807:[151]i,32:[130]
  45. 340 d[178]32
  46. 900 [143]
  47. 910 [143] ------------------------------
  48. 920 [143]  line #1000 is the start of
  49. 930 [143]     the main input loop
  50. 940 [143] ------------------------------
  51. 950 [143]
  52. 1000 [151]33784,223 : [153]c$
  53. 1010 mm[178][194](56321):mn[178][194](56320):mf[178]mn[175]16
  54. 1015 [158]49689 : a$[178][199]([194](49688))
  55. 1016 [151]49688,0:[139]a$[178][199](13)[167]mf[178]0
  56. 1020 sl[178]32768[170][181](([194](v)[171]24)[173]8)[170]([181](([194](v[170]1)[171]50)[173]8)[172]40)
  57. 1030 [139]mm[178]239[176](mf[178]16)[178]0[167]1100
  58. 1040 [139]mm[178]254[176]a$[178]"let"[167]1200
  59. 1050 [139]a$[178]"restore"[167]50000
  60. 1060 [137]1010
  61. 1100 [139][194](v[170]16)[175]1[178]1[167]1120
  62. 1110 [137]1900
  63. 1120 sl[178]sl[170]32:d[178][194](sl):[139]d[179]75[176]d[177]128[167]d[178]32
  64. 1130 [139]d[178]117[167]d[178]32
  65. 1135 xc[178][194](v) : yc[178][194](v[170]1)
  66. 1136 [139]xc[177]44[167][139]xc[179]88[167][139]yc[177]171[167][139]yc[179]192[167][137]9000
  67. 1137 [139]xc[177]1[167][139]xc[179]45[167][139]yc[177]171[167][139]yc[179]192[167][137]50000
  68. 1140 [139]yc[177]197[167][139]yc[179]215[167][139]xc[179]42[167]2000
  69. 1150 [139]yc[177]197[167][139]yc[179]215[167][139]xc[177]47[167][139]ng[177]0[167][158]50036:[137]1000
  70. 1160 [139]xc[179]44[167][139]yc[177]218[167]1300
  71. 1170 [139]xc[177]47[167][139]yc[177]218[167]1500
  72. 1175 zz[178][194](sl):[151]sl,zz[176]128:[141]20010:[151]sl,zz
  73. 1180 [137]1000
  74. 1190 [143]
  75. 1191 [143] -----------------------------
  76. 1192 [143] this is the test routine
  77. 1193 [143] -----------------------------
  78. 1194 [143]
  79. 1200 [139][194](v[170]16)[175]1[178]1[167][153]c$:[137]1000
  80. 1205 [153]"     press f1 to cancel testing       "
  81. 1210 [151]33784,221:[151]198,0:d[178][194](sl):[139]d[178]113[167]d$[178]"r":sl[178]sl[170]1:[137]1260
  82. 1220 [139]d[178]114[167]d$[178]"l":sl[178]sl[171]1:[137]1260
  83. 1230 [139]d[178]115[167]d$[178]"u":sl[178]sl[171]40:[137]1260[173]zz[173]
  84. 1240 [139]d[178]116[167]d$[178]"d":sl[178]sl[170]40:[137]1260
  85. 1250 [137]3010
  86. 1260 bn[178]0:gn[178]0:[137]5000
  87. 1270 [143]
  88. 1275 [143] -----------------------------
  89. 1280 [143] this is the 'load' routine
  90. 1285 [143] -----------------------------
  91. 1290 [143]
  92. 1300 [151]198,0:[151]33784,222:[141]1400:[139]f$[178]""[167][153]c$:[137]1000
  93. 1305 [151]v[170]21,.
  94. 1310 f$[178]f$[170]".caed":[159]15,8,15,"i":[159]8,8,8,"0:"[170]f$[170]",p,r"
  95. 1330 [132]15,a,a$,cv,cv:[160]8:[160]15
  96. 1340 [139]a[179][177]0[167][151]v[170]21,1:[141]1470:[137]1000
  97. 1350 [158]57812f$,8,0:[151]780,0:[151]781,80:[151]782,128:[158]65493
  98. 1360 pp[178]33785:ng[178][194](pp[171]2)
  99. 1370 [129]j[178]1[164]ng:gl(j)[178][194](pp)[172]256[170][194](pp[170]1)
  100. 1380 pp[178]pp[170]2:[130]:[158]49884
  101. 1390 [151]v[170]21,1:[137]1000
  102. 1395 :
  103. 1400 f$[178]"":[153]"      filename>                   cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  104. 1410 [161]a$:[139]a$[178]""[167]1410
  105. 1420 [139]a$[178][199](13)[167][142]
  106. 1430 [139]a$[178][199](20)[175][195](f$)[178]0[167]1410
  107. 1440 [139]a$[178][199](20)[167]f$[178][200](f$,[195](f$)[171]1):[153]a$;:[137]1410
  108. 1445 [139]a$[179]" "[176]a$[177]"_"[167]1410
  109. 1450 [139][195](f$)[177]10[167]1410
  110. 1460 f$[178]f$[170]a$:[153]a$;:[137]1410
  111. 1470 [153]c$;""a$
  112. 1480 [129]i[178]0[164]2000:[130]:[153]c$
  113. 1490 [142]
  114. 1492 [143]
  115. 1493 [143] -----------------------------
  116. 1495 [143]   this is the "save" routine
  117. 1496 [143] -----------------------------
  118. 1497 [143]
  119. 1500 [151]198,0:[151]33784,222:[141]1400:[139]f$[178]""[167][153]c$:[137]1000
  120. 1505 [151]v[170]21,.
  121. 1510 f$[178]f$[170]".caed":[158]50036:pp[178]33785:[151]pp[171]2,ng
  122. 1520 [129]j[178]1[164]ng:k[178]gl(j):sh[178][181](k[173]256):[151]pp,sh:[151]pp[170]1,k[171]sh[172]256
  123. 1530 pp[178]pp[170]2:[130]
  124. 1540 [159]15,8,15,"#":[159]8,8,8,"0:"[170]f$
  125. 1550 [151]780,253:[151]253,80:[151]254,128:eh[178][181](pp[173]256):[151]782,eh
  126. 1560 [151]781,pp[171]eh[172]256
  127. 1570 [158]65496:[132]15,a,a$:[151]v[170]21,1:[139]a[178]63[167][160]8:[137]1600
  128. 1580 [139]a[179][177]0[167]1470
  129. 1585 :
  130. 1590 [152]15,"i0:":[160]8:[160]15:[153]c$:[137]1000
  131. 1600 [152]15,"i":[153]"    file exists...  replace? (y/n)    "
  132. 1610 [161]a$:[139]a$[178]"n"[167]1590
  133. 1620 [139]a$[179][177]"y"[167]1610
  134. 1630 [159]8,8,8,"@0:"[170]f$
  135. 1640 [153]c$:[137]1550
  136. 1891 [143]
  137. 1892 [143] "icon placement routine"
  138. 1893 [143]
  139. 1900 [139][194](v[170]1)[179]67[176][194](v)[179]27[176][194](v)[177]246[176][194](v[170]1)[177]239[167]1000
  140. 1910 [143]   iffl=1thenfl=0:ng=0
  141. 1920 [151]sl,d
  142. 1930 [129]i[178]1[164]ng:[139]gl(i)[178]sl[167]gl(i)[178]0
  143. 1940 [130]
  144. 1970 [139]d[177]122[175]d[179]128[167]ng[178]ng[170]1:gl(ng)[178]sl:cv[178]6:[137]1980
  145. 1971 [139]d[177]112[167][139]d[179]117[167]cv[178]0:[137]1980
  146. 1972 [139]d[178]79[176]d[178]81[176]d[178]83[176]d[178]85[167]cv[178]0:[137]1980
  147. 1973 cv[178]1
  148. 1980 [151]sl[170]22528,cv : [137]1000
  149. 1991 [143]
  150. 1992 [143] -----------------------------
  151. 1993 [143]   this is the "clear" routine
  152. 1994 [143] -----------------------------
  153. 1995 [143]
  154. 2000 [153]"           are you sure? (y/n)         "
  155. 2020 [161]a$:[139]a$[178]""[167]2020
  156. 2040 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]2060
  157. 2050 [153] c$:[137]1000
  158. 2055 :
  159. 2060 [153]"                            "
  160. 2070 [129]zz[178]1[164]21
  161. 2080 [153]"                            ";
  162. 2090 [130]zz
  163. 2260 [153]"                            ";
  164. 2270 [153]c$;
  165. 2280 ng[178]0  :  [143] fl=1
  166. 2290 [137]1000
  167. 2291 [143]
  168. 2292 [143] -----------------------------
  169. 2293 [143]   this is the "error" routine
  170. 2294 [143] -----------------------------
  171. 2295 [143]
  172. 3000 :
  173. 3010 [151]sl,[194](sl)[176]128:[151]sl[170]22528,4
  174. 3020 [129]jd[178]1[164]16:[129]tj[178]1[164]20:[130]
  175. 3030 [151]646,jd[175]1
  176. 3040 [153]""ee$
  177. 3050 [130]
  178. 3060 [151]sl,[194](sl)[175]127
  179. 3090 [153]c$:[158]50036:bn[178]0:b[178]0:[137]1000
  180. 3500 [139]b[178]0[167]3550
  181. 3510 b